put "You can link another stack to the Developer Stack"
answer "This will install a button in another stack." with "Cancel" or "OK"
if it is "Cancel" then
beep
hide message window
exit mouseup
end if
put "Please select the destination stack"
put filename("STAK") into thefile
if thefile is empty then
beep
hide message window
exit mouseup
end if
set cursor to 4
put "Thank you. Please wait..."
choose button tool
put the long name of this stack into gohere
delete word 1 of gohere
put "go to " before gohere
put "on mouseup" into first line of buttonscript
put "visual barn door close to black" into second line of buttonscript
put "visual barn door open to gray" into third line of buttonscript
put "visual barn door close" into fourth line of buttonscript
put gohere into fifth line of buttonscript
put "end mouseup" into sixth line of buttonscript
set visible of background button "Developer Stack" to true
click at loc of background button "Developer Stack"
domenu copy button
set visible of background button "Developer Stack" to false
choose browse tool
set cursor to 4
push card
set lockmessages to true
go to thefile
set cursor to 3
put "Just click where you want the button placed."
repeat while the mouseclick is false
end repeat
set cursor to 0
put "Thank you. Please wait..."
put the Mouseloc into PutItHere
domenu paste button
set loc of button "Developer Stack" to PutItHere
set the script of button "Developer Stack" to buttonscript
choose browse tool
pop card
set lockmessages to false
hide message window
end mouseUp
-- part 34 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=328 top=226 right=240 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: size2
----- HyperTalk script -----
on mouseup
domenu "compact stack"
put the size of this stack into card field "StackSize"
put the freesize of this stack into card field "Wasted"
end mouseup
-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=404 top=226 right=240 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Wasted
-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=404 top=213 right=227 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: StackSize
-- part 37 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=328 top=213 right=227 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: size1
----- HyperTalk script -----
on mouseup
put the size of this stack into card field "StackSize"
put the freesize of this stack into card field "Wasted"
end mouseup
-- part 39 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=320 top=314 right=335 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
listButton "Buttons"
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=320 top=266 right=315 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
controlButton "Buttons"
end mouseUp
-- part 44 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=385 top=266 right=315 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 13182 / 13182
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserved1
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
global badclick
put badclick+1 into badclick
beep
if badclick <4 then
answer "This is reserved for future expansion"
else
answer "Now cut that out!"
end if
end mouseUp
-- part 45 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=449 top=266 right=315 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 13182 / 13182
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reserved2
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
global badclick
put badclick+1 into badclick
beep
if badclick <4 then
answer "This is reserved for future expansion"
else
answer "Now cut that out!"
end if
end mouseUp
-- part 46 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=385 top=314 right=335 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
listButton "Reserved1"
end mouseUp
-- part 47 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=449 top=314 right=335 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Show List
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
listButton "Reserved2"
end mouseUp
-- part 53 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=288 top=76 right=209 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mousewithin
if the OptionKey is down then
if the locktext of the target is true then
put true into DidUnlock
set locktext of target to false
else
put false into DidUnlock
end if
set the cursor to 2
repeat while (the OptionKey is down) and (item 1 of the rect of target <= item 1 of the mouseLoc) and (item 1 of the mouseLoc <= item 3 of the rect of target) and (item 2 of the rect of target <= item 2 of the mouseLoc) and (item 2 of the mouseLoc <= item 4 of the rect of target)
if the Mouse is down then
click at the MouseLoc
click at the ClickLoc
if the selection = "asterisk" then
play boing
answer "Yes, this IS an example!"
else
if the selection = "bill" then
show button "bill"
else
beep
answer "Do you see any asterisk there?!!!"
end if
end if
click at -1,-1
end if
end repeat
if DidUnlock then
set the locktext of the target to true
end if
end if
end mousewithin
on mouseup
end mouseup
-- part 55 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=242 top=83 right=120 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 21240 / 21240
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bill
----- HyperTalk script -----
on mouseUp
play boing
answer "Hey! Don't click on his head!!"
hide the target
end mouseUp
-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=149 right=238 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
-- part 58 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=75 right=118 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual iris open to gray
visual iris close to black
visual iris open to gray
visual iris close
go background information
end mouseUp
-- part 59 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=120 right=163 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual barn door close to black
visual barn door open
go back
end mouseUp
-- part 60 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=165 right=208 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
go home
end mouseUp
-- part 61 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=210 right=253 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
domenu "open stack..."
end mouseUp
-- part 62 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=255 right=298 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual venetian blinds to gray
visual venetian blinds to black
visual venetian blinds to gray
visual venetian blinds
go to background "Mini Hyperstation"
end mouseUp
-- part 63 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus On
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
If the short name of the target is "Menus On" then
Scroll Text Button 1,ArrowKeys,ShowScripts,Scrolling Text Button 2,
-- part contents for card part 53
----- text -----
•••POWER USER TIPS•••
To go to the beginning of a specific section
(XFCNs, Scripts, etc.) hold down the command key when clicking on the button.
When you see an item in a field followed by an asterisk*, holding the option key and clicking on that word will either give you more information, or take you to a reference.
(Still waiting for those 'sticky buttons',
Bill*.)
To look at the script of any button or card, anywhere in the stack, just hold down the option key when you click on it. To look at the script of a background hold down the shift and option keys when you click in it.
Clicking on the words 'Stack Size' below will give you the current size of the stack, not including the resources.
Clicking on the word 'Wasted' below will compact the stack.
The easiest way to access this stack when you are developing an new stack is to use the 'Link this stack' button and install a link to Developer Stack in your work-in-progress stack. When you are fininshed with your stack, you can delete the
This stack is free, and may be re-distributed in its original form with all original messages. It may not be sold commercially. It is intended for educational & training purposes only and no warranty is made as to the suitablity of anything included in this stack for any specific purpose.
(CDRM1080320)(1993).iso/FILES/HYP/C-D/DeveloperStax.cpt/Developer Stack 1.0/card_4851_render.png){kind=link}